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SECTION  1 


INTRODUCTION 


1.1  PURPOSE  AND  SCOPE 

This  manual  describes  the  computer  programs  for  the  dubbing  portion  of 
the  FIREFINDER  Digital  Topographic  Data  Verification-Library-Dubbing  System 
(FFDTDVLDS).  Detailed  flow  diagrams  and  associated  descriptions  for  each 
computer  program  routine  and  subroutine  are  given  to  assist  In  the  maintenance 
of  these  programs.  Complete  computer  listings  are  also  Included.  This  In¬ 
formation  should  be  used  when  changes  are  made  In  the  computer  programs.  The 
operating  system  has  been  designed  to  minimize  operator  Intervention. 

1.2  SYSTEM  OVERVIEW 

The  FFDTDVLDS  Is  the  central  source  of  digitized  topographic  data  for  the 
fielded  FIREFINDER  Artillery  and  Mortar  Locating  Radar  Systems.  This  facility 
Is  responsible  for: 

•  Receiving  data  cells  from  the  Defense  Mapping  Agency  (DMA). 

•  Verifying  that  they  contain  reasonably  accurate  data  In  the  prescribed 
format. 

e  Accurately  cataloging  the  data  cells  In  the  library  so  as  to  facilitate 
timely  access  when  they  are  needed. 

•  Converting  the  cataloged  data  cells  to  other  optimal  grid  sizes  for  sub¬ 
sequent  cataloging. 

•  Transferring  requested  data  cells  to  field  cassettes. 

•  Validating  the  cassette  files  before  shipment  to  operational  units. 

1.2.1  Verification 

The  Incoming  DMA  tapes  and  accompanying  documentation  will  be  compared. 
The  cell  definition  records  containing  critical  data  will  be  dumped  for  cross¬ 
check  with  the  printed  dump  accompanying  the  tapes.  Next  the  actual  data  1$ 


displayed  on  a  color-coded  master  graphic  CRT  system.  Radically  Inconsistent 
color  mismatches  Indicate  probable  bad  data  Items.  Rough  contouring  routines 
are  also  utilized.  Any  doubt  as  to  the  accuracy  and  validity  of  a  cell  will 
render  It  unusable  by  FFDTDVLDS. 

1.2.2  Library 

The  library  operations  will  be  software-determined,  self -updating,  and 
crosschecking.  Operators  will  be  instructed  as  to  what  tapes  to  mount,  when 
to  mount  them,  what  switches  to  throw,  and  so  forth.  Operations  will  not  pro¬ 
ceed  until  the  program  is  satisfied  that  the  specific  actions  have  been  cor¬ 
rectly  performed.  Routines  will  be  available  to  aid  operators  in  error  recovery 
if  bad  library  data  is  encountered. 

Auxiliary  routines  will  be  available  to  periodically  condense  the  catalog 
and  data  tapes,  crosscheck  the  catalog  against  the  data  tapes  to  be  sure  no 
errors  have  been  introduced,  and  reorder  tapes  and  data  files  to  make  more  ef¬ 
ficient  use  of  the  existing  tapes.  These  routines  will  be  used  infrequently. 
Auxiliary  software  will  also  Include  several  utility  and  maintenance  programs 
for  various  purposes. 

The  library  system  is  completely  described  in  Volume  I  of  this  manual. 

1.2.3  Dubbing 

This  portion  of  the  system  will  be  responsible  for  receiving  field  user 
requests  for  data,  locating  It  In  the  library,  and  transferring  the  data  to 
the  output  medium  and  format  (usually  a  cassette  or  9-track  tape)  specified  by 
the  requester.  Software  reprogramml ng  would  allow  other  formats,  and  firmware- 
driven  changes  In  Raymond  Interface  could  accommodate  other  output  tape  or 
disk  subsystems. 


Field  user  requests  may  be  made  in  either  of  the  following  formats: 

a.  Grid  zone  plus  alphabetic  cell  designator. 

b.  Grid  zone  plus  S/W  corner  northing/easting  coordinates. 

Established  policy  will  furnish  the  grid  size  selected  for  FIREFINDER  systems. 
Ml  transfers  within  the  VLD  will  be  error-checked  as  a  standard  procedure. 
Procedures  will  also  be  established  to  verify  outgoing  tapes  using  the  verifi¬ 
cation  program  prior  to  shipment. 

1.3  DUBBING  PROCESS  OVERVIEW 

The  dubbing  system  dubs  digital  maps  from  the  library  tapes  onto  Raymond 
cassettes  for  field  use.  As  shown  In  Figure  1-1,  when  a  request  Is  received 
from  the  field,  the  library  catalog  is  checked  to  see  If  the  requested  map  Is 
In  the  library.  If  It  Is,  a  cassette  Is  made.  The  cassette  Is  verified  by 
the  verification  program  before  being  sent  out  to  the  field.  Any  maps  not  In 
the  library  are  documented  and  requested  from  DMA. 

To  maximize  cassette  use,  approximately  eight  maps  are  placed  on  each 
cassette. 

When  a  field  request  Is  received,  the  operator  enters  the  map  designator. 
A  maximum  of  20  can  be  entered  at  once.  The  maps  can  be  entered  by  the  grid 
zone  designator  (32UKA,  2PKQ)  or  by  the  grid  zone  and  the  S/W  corner  northing 
and  easting  points  (16S  3600000,  700000).  For  each  map  entered,  the  opera¬ 
tor  Is  asked  If  any  overlapping  border  cells  are  required.  If  so,  they  are 
automatically  entered  by  the  program. 

When  all  the  maps  are  entered,  the  operator  Is  directed  to  mount  the  cur¬ 
rent  library  working  tape.  The  replacement  record,  containing  replaced  catalog 
entries.  Is  loaded  Into  memory. 
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The  operator  Is  then  directed  to  mount  the  library's  master  catalog. 
The  program  then  searches  the  catalog  for  the  maps  to  be  dubbed.  Maps  not 


contained  In  the  library  are  Identified. 

Using  Information  from  the  catalog  entry,  the  number  of  words  each  map 
contains  Is  computed.  As  each  map  Is  added,  the  total  words  required  Is  com¬ 
pared  to  the  maximum  number  of  words  the  cassette  can  handle.  The  optimum 
fill  of  the  cassette  Is  then  decided  and  the  operator  is  notified.  If  the 
optimum  fill  is  not  acceptable,  the  operator  has  the  opportunity  to  reenter 
the  maps  In  a  different  order.  The  maps  should  be  entered  in  priority  order 
since  the  first  maps  are  considered  first. 

If  the  optimum  fill  Is  acceptable,  the  operator  Is  prompted  to  mount  a 
scratch  tape.  This  scratch  tape  will  contain  the  data  records  which  will 
eventually  be  placed  on  the  cassette.  The  scratch  tape  is  required  to  con¬ 
struct  the  cassette  header.  As  each  map  Is  copied  onto  the  scratch  tape,  in¬ 
formation  from  Its  designator  record  Is  transferred  to  the  buffer  and  will  be 
written  out  to  the  cassette. 

The  operator  Is  directed  to  mount  the  required  library  field  file  (FF) 
tape  for  each  map.  The  tape  Is  spaced  down  to  the  required  maps,  and  the  data 
records  are  copied  onto  the  scratch  tape. 

After  all  the  maps  are  copied,  the  cassette  header  records  are  written  out 
to  the  scratch  tape  as  a  separate  file. 

The  cassette  Is  then  prepared  from  the  scratch  tape.  The  cassette  header 
Information  Is  written  out  and  the  data  records  are  copied.  After  a  cassette 
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Is  prepared.  It  is  verified  before  being  sent  to  the  field.  If  only  one 
cassette  Is  to  be  made,  the  operator  chooses  a  single  cassette  option  which 
will  make  a  single  cassette. 

If  more  than  one  cassette  Is  to  be  made  (l.e.,  four  copies  of  the  same 
map),  the  operator  can  choose  a  multiple  cassette  option.  This  option  will 
make  only  the  scratch  tape.  It  will  direct  the  operator  to  verify  the  scratch 
tape  before  proceeding  with  the  cassette  copies. 

Once  the  scratch  tape  Is  verified,  the  operator  can  make  from  one  to  five 
copies  by  choosing  a  copy  only  option.  Each  cassette  Is  then  verified  before 
being  sent  to  the  field. 
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SECTION  2 

DUBBING  TAPE  DESCRIPTIONS 


2.1  GENERAL 

The  dubbing  system  uses  five  types  of  tapes: 

•  The  working  tape 

•  The  catalog  tape 

•  The  field  file  tape 

•  A  scratch  tape 

•  The  Raymond  cassette  tape 

The  working  tape,  catalog  tape,  and  field  file  (FF)  tape  are  actually  part 
of  the  library  program.  The  dubbing  system  creates  only  the  scratch  tape  and 
cassette  tape. 

The  dubbing  system  refers  to  the  library  tapes  for  the  Information  required 
to  make  the  scratch  tape  or  cassette  tape. 

2.2  SCRATCH  TAPE 

The  scratch  tape  contains  all  the  data  records  (In  Hughes  format)  to  be 
put  on  the  cassette.  A  scratch  tape  Is  required  because  the  cassette  designa¬ 
tor  record  must  contain  Information  on  each  map  and  Its  location  on  the  cas¬ 
sette.  Since  the  Information  Is  taken  from  the  designator  record  of  each  map, 
the  cassette  designator  record  cannot  be  assembled  until  each  map  is  read.  To 
save  time,  the  data  records  of  each  map  are  converted  to  Hughes  format  and 
stored  on  the  scratch  tape  as  the  map's  designator  record  Information  Is 


transferred  to  the  cassette  designator  record.  After  all  the  maos  are  con¬ 
verted,  the  FLR  and  designator  records  for  the  cassette  are  written  out  to  the 
scratch  tape  for  storage. 


When  a  cassette  Is  prepared,  the  cassette  header  records  are  retrieved  from 
the  scratch  tape  and  written  out  to  the  cassette.  The  data  records  are  then 
copied  onto  the  cassette. 

Physically,  the  scratch  tape  Is  set  up  as  follows: 

Header  File:  Fixed  Length  Record  (FLR)  FLRRCD 

Designator  Record  DESRCD 

EOF 

Data  File:  First  data  record  of  first  map 


Last  data  record  of  first  map 
First  data  record  of  second  map. 


Last  data  record  of  second  map 


First  data  record  of  last  map 


Last  data  record  of  last  map 
EOF 

Cassette  Header  File:  FLR  FLRDUB 

Designator  Record  DESDUB 

EOF 

EOT 


Flqure  2-1  depicts  a  breakdown  of  the  scratch  tape  header  file. 
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Figure  2-1.  Scratch  Tape  Header  File 


The  data  records  are  the  library  field  file  data  records  converted  to 
Hughes  format.  (Refer  to  reference  (a)  for  a  detailed  explanation  of  the 
field  file  records.)  For  Hughes  format,  an  end-of-scan  (-1)  Is  placed  after 
each  scan,  and  an  end-of-record  (-1)  Is  placed  after  the  final  scan  of  a 
record. 

The  cassette  header  file  contains  the  FLR  and  designator  record  which 
will  be  output  to  the  cassette.  Paragraph  2.3  explains  the  cassette  header 
records . 

2.3  CASSETTE 

The  Raymond  cassette  Is  the  final  output  of  the  dubbing  system.  The  cas¬ 
sette  consists  of  one  file  as  follows: 

CPC  Record 

FLR  Record 

Designator  Record 

First  data  record  of  first  map 


• 

Last  data  record  of  first  map 
First  data  record  of  second  map 
• 

Last  data  record  of  second  map 


First  data  record  of  last  map 


Last  data  record  of  last  map 

A  breakdown  of  the  cassette  header  records  is  shown  In  Figure  2-2. 
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Figure  2-2.  Cassette  Header  Records 


The  CPC  record  is  used  internally  by  the  Raymond  cassette  unit  as  a  self¬ 
test  processor  check.  It  has  no  record  count,  and  is  for  use  only  by  the  Ray¬ 
mond  unit. 

The  FIR  has  a  record  count  of  zero,  and  the  designator  record  has  a  count 
of  one.  The  data  records  follow,  numbered  sequentially.  End-of-file  and  end- 
of-tape  marks  are  not  used  on  the  cassette  tape. 

The  cassette  designator  record  contains  information  on  each  map  on  the 
cassette,  including  its  location.  The  record  number  of  each  map's  first  data 
record  is  in  the  designator  record  so  that  the  map  can  be  retrieved.  The 
cassette  designator  record  is  variable;  its  length  depends  on  the  number  of 
maps  placed  on  the  cassette  tape.  The  length  of  the  designator  record  is  com¬ 
puted  by  the  formula: 

DESBUBl  •  6  +  (Number  of  maps  *  20} 

NOTE:  The  cassette  FLR  and  designator  record  are  in  Hughes  format.  Two  16- 
bit  words  are  used  as  end-of- record. 

A  breakdown  of  the  entire  definition  record  is  shown  in  Table  2-1. 
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TABLE  2-1.  CASSETTE  DESIGNATOR  RECORD 


WORD 

1 

2 

3 

4-6 

7-8 

9-10 

11-12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

24-26 

27-28 

44-46 


Record  Type 

Record  Count 

Number  of  maps  on  tape 

UTM  grid  designator 

S/W  Northing 

S/W  Easting 

UTM  scale  factor 

Lowest  elevation  (Base  Ht  in  meters) 
Height  scale  factor 
Spacing  Multiple 

Number  of  kilometers  in  N/S  direction 
Number  of  kilometers  in  E/W  direction 
Number  of  first  data  record 
Grid  zone  azimuth 
Maximum  elevation  (In  meters) 

Number  of  words/data  record 
Number  of  scan  proflles/cell 
Length  of  last  data  record 
UTM  grid  designator 
S/W  Northing 

UTM  grid  zone  designator 


For 


For 


For 


1st  map 


2nd  map 


3rd  map 
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SECTION  3 


COMMONS  AREA  DESCRIPTION 

3.1  GENERAL 

Many  variables  used  In  the  dubbing  system  are  held  In  a  common  data  base 
(commons).  Each  area  In  commons  has  a  name  and  several  variables  held  In  that 
commons.  The  commons  used  In  the  dubbing  system  are: 

/ALL/,  /BASIC/,  /TABLES/,  /INFO/,  /FLAGG/,  /HEADER/,  /FUNCTN/,  /COUNT/ 

The  following  paragraphs  describe  each  variable  held  In  the  data  base  and  the 
function  It  performs.  Table  3-1  shows  the  common  areas  accessed  by  each  sub¬ 
routine. 

In  the  following  descriptions,  the  common  variable  names  are  given  In  capi¬ 
tal  letters;  the  subroutines  are  In  capital  letters  and  underlined. 

3.2  COMMONS 

/ALL/  IOBUFO  (2048),  I0BUF1  (2048),  I0BUF2  (2048) 

ALL  contains  three  I/O  buffers  of  2048  words  each.  These  buffers  are  In¬ 
volved  In  all  I/O  routines  and  computations. 

/BASIC/  CRT,  PRINTR,  INPDEV,  OUTDEV,  ON,  OFF,  DONE,  NTDONE ,  IOBUF,  LOGDEV, 
MMDD,  YYYY,  MM,  DD,  YY,  GBGMSG,  OPTION,  TYPOPT,  MAXIM,  NUMMPS,  RAYMON 

BASIC  contains  I/O  assignments  and  test  conditions.  The  I/O  assignments 
are  system- dependent. 

CRT  »  5 
PRINTR  ■  6 

INPDEV  «  Input  device  can  be  either  2  or  3  for  tape  drive 

OUTDEV  ■  output  device  2  or  3,  respectively 
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COUNT 


ON  -  0 


OFF  3  1 
DONE  *  1 
NTDONE  3  0 


IOBUF  and  LOGDEV  are  variables  used  by  the  RSUMCK  subroutine. 

IOBUF  determines  the  Input  buffer  RSUMCK  will  read  Into: 

IOBUF  3  0  for  IOBUFO 
3  1  for  I0BUF1 
3  2  for  I0BUF2 


LOGDEV  Is  the  Input  device  RSUMCK  will  read  from: 


LOGDEV  3  2  for  tape  drive  2 
=  3  for  tape  drive  3 
=  8  for  Raymond  Cassette 


MMDD  =  month  and  day  values 
YYYY  =  year 

MM  *  month 

DD  3  day 

YY  =  year 


All  set  In  CASSET, 
contain  date  Infor 
matlon. 


GBGMSG  ■  flag  for  a  bad  tape  read.  GBGMSG  will  vary  depending  on  which 
magnetic  tape  had  a  read  failure. 


GBGMSG  =  1  for  read  failure  on  the  work  tape 

=  5  for  read  failure  on  the  scratch  tape 
3  10  for  read  failure  on  the  catalog  tape 

OPTION  3  the  dubbing  system  option  selected: 

OPTION  =  1  for  single  cassette  option 
=  2  for  multiple  cassette  option 
3  3  for  copy  only  option 

TYPOPT  3  the  reference  form  In  which  the  map  was  entered  -  either  UTM  grid 
zone  designation  or  grid  zone  and  the  S/W  northing/easting  co¬ 
ordinates. 

TYPOPT  3  1  for  UTM  grid  zone  designator  (32UKC,  53STM) 

3  2  for  grid  zone  and  S/W  northing/easting  coordinates  (32U 
4200000,  300000) 


MAXIM  3  the  maximum  number  of  maps  which  the  operator  can  enter  for  dubbing 
at  one  time.  This  Is  set  In  the  Block  Data  routine  to  20. 
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NUtWPS  =  the  number  of  maps  actually  entered  for  dubbing.  NUMMPS  includes 
any  overlap  border  cells  given. 

RAYMON  =  8 


/TABLES/  RETREV (30,  30),  GLBRPL(90) ,  FLR(9) ,  DESR(20) 

TABLES  contains  the  RETREV  array  and  replacement  record. 

RETREV(30,  30)  =  an  array  of  30  entries,  30  words  each.  (Only  20  entries 
are  allowed  at  this  time.)  Each  entry  contains  Informa¬ 
tion  on  the  given  map.  The  RETREV  words  are  assigned  as 
follows: 


|l'm3|4|5|51718|9|10|lH12|13|14115|lfe|l/|l8|19|20|nTZ2123|24T??Tg5TZTl?8T2r|lUT 


RETREV  (  ,  1) 


RETREV  (  ,  2) 


(  ,  3) 

(  ,  4) 
(  ,  5) 

(  ,  6) 
(  ,  7) 
(  ,  8) 
(  .  9) 
(  ,  10) 
(  ,  ID 
(  ,  12) 
(  ,  13) 
(  ,  14) 

(  .  15) 


Overlap  Cell  Identifier 

1  East/West 

2  North/South 

3  Both 

MIDVAL  -  Center  of  map  (used 
for  overlap  boundary  cell 
determination) 

UTM  Grid  Designation 

UTM  Grid  Designation 

UTM  Grid  Designation 

S/W  Corner  Northing,  High 

S/W  Corner  Northing,  Low 

S/W  Corner  Easting,  High 

S/W  Corner  Easting,  Low 

Number  of  km  In  N/S  Direction 

Number  of  km  In  E/W  Direction 

PRFX 

INFX 

Location  In  Library  - 
FF  Tape  Number 
Location  In  Library  - 
FF  File  Number 


(  ,  16)  =  Entry  Type  »  1  UTM  Grid 

Designator 
=  2  S/W  Northing/ 
Easting 

(  ,  17)  =  Format  =  1  250m 

=  2  500m 

=  3  1,000m 

(  ,  18)  =  Located  =  0  Not  In  Library 
=  1  In  Library 

{  ,  19)  =  Copy  *  0  Do  Not  Copy 
*  1  For  Copy 

(  ,  20)  =  Status  =  0  Not  Copied 
=  1  Copied 

(  ,  21)  =  not  used 
(  ,  22)  =  not  used 
{  ,  23)  =  not  used 
(  ,  24)  =  not  used 
(  ,  25)  =  not  used 
(  ,  26)  =  not  used 
(  ,  27)  =  not  used 
(  ,  28)  =  not  used 
(  ,  29 )  =  not  used 
(  ,  30)  =  not  used 


GLBRPL(90)  *  global  replacement  record.  Maps  which  have  been  replaced  In 
the  catalog  are  recorded  here.  This  record  Is  read  off  the 
library  system  working  tape.  In  the  dubbing  program,  an  equiv¬ 
alence  Is  established  between  GLBRPL ( 3 )  and  GLBTBL .  CTLFND 
checks  the  GLBTBL  when  searching  the  catalog. 

FLR(9)  *  fixed  length  records  (FLR's),  nine  words  dimensioned  for  header. 

DESR(20)  »  designate  records,  20  words  dimensioned  for  header. 
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/INFO/  MAP ( 3 ) ,  CPYCT,  MAPNO ,  PRFX,  INFX,  NORTH(2),  EAST(2),  NO,  EO 

INFO  contains  map  Information. 

MAP(3)  =  grid  zone  designator.  CRTCK  calculates  the  designator  words 
from  the  UTM  grid  designator  entered  by  the  operator.  The 
designator  Is  stored  In  the  RETREV  array,  words  3,  4,  and  5  by 
the  ENTRY  routine. 

CPYCT  *  the  number  of  maps  to  be  put  on  the  cassette  tape.  CPYCT  Is 
computed  In  the  DECIDE  routine. 

PRFX  and  INFX  =  the  first  two  or  three  characters  of  the  UTM  grid  zone 
designator.  CRTCK  and  GRIOCK  Interpret  the  operator's 
entries  and  separate  them  as  Follows: 


2KPQ: 

15KPQ: 

2  K 

1  1 

PQ 

15 

1 

K 

1 

PQ 

PRFX  INFX 

PRFX 

INFX 

PRFX  and  INFX  are 

stored 

In  the  RETREV 

array , 

words  12  and  13  by  the 

ENTRY  routine. 


NORTH (2)  *  the  S/W  corner  northing  coordinate,  high  and  low  words.  NUMCK 

Interprets  the  operator's  input  and  converts  it  Into  two  16- 

bit  words.  The  northing  values  are  put  Into  the  RETREV  array, 
words  6  and  7  by  the  ENTRY  routine. 

E AST ( 2 )  *  the  S/W  corner  easting  coordinate,  high  and  low  words.  NUMCK 

Interprets  the  operator's  Input  and  converts  It  Into  two  16- 

bit  words.  The  easting  values  are  then  put  Into  the  RETREV 

array,  words  8  and  9  by  the  ENTRY  routine. 

NO  *  the  northing  coordinate  entered  by  the  operator  as  a  real. 

EO  =  the  easting  coordinate  entered  by  the  operator  as  a  real. 


/FLAGG/  IXRTN,  STSVL,  RTRY,  WTRY,  ISCS,  RC,  RECSUM,  CMPBAD ,  HAST,  CASETE 
FLAGG  contains  the  status  return  variables,  flags,  and  record  counts. 
IXRTN  «  status  flag  for  read  and  write  processes: 

RSUMCK  returns  IXRTN  ■  1  for  good  read 

■  2  for  EOT  encountered 

*  3  for  bad  read 

■  4  for  s>.m  check  error 
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TAPDUB  sets  IXRTN  =  5  for  improper  record  type/unexpected  EOT  on 
“  output  device 

3  6  for  bad  read  after  write 
=  7  for  sum  check  error  after  write 
=  8  for  bad  compare,  second  time 

STSVL  3  status  flag  returned  to  UTLDUB  by  JMPSW. 

STSVL  3  1  OK,  continue 

3  2  bad  read  first  time,  try  again 

=  3  bad  write  first  time,  try  again 

=  4  processing  stopped  due  to  nonrecoverable  errors 

UTLDUB  branches  on  STSVL  and  goes  to  the  appropriate  step  in  the  program. 

RTRY  3  read  try  flag.  RTRY  is  set  equal  to  zero  in  UTLDUB  prior  to  at¬ 
tempting  a  copy.  If  a  bad  read  Is  detected,  JMPSW  sets  RTRY  equal 

to  1  and  retries  the  record.  On  the  second  try,  JMPSW  tests  RTRY 

and  goes  to  the  half  processing  logic. 

WTRY  3  write  try  flag.  WTRY  Is  set  equal  to  zero  In  UTLDUB  prior  to  at¬ 
tempting  a  copy.  If  a  bad  write  is  detected,  JMPSW  sets  WTRY  equal 

to  1  and  retries  the  record.  On  the  second  try,  JMPSW  tests  WTRY 

and  goes  to  the  half  processing  logic. 

ISCS  3  status  flag  for  compare  routine  CMPRCD 

ISCS  3  0  for  good  compare 
3  1  for  bad  compare 

RC  3  record  count  for  each  individual  map 

RECSUM  3  record  count  for  entire  scratch  tape  or  cassette  tape. 

CMPBAD  3  compare  try  flag.  If  a  record  falls  the  comparison,  TAPDUB  tests 
CMPBAD  to  determine  If  it  was  the  first  failure.  The  first  time, 
the  record  Is  rewritten  and  CMPBAD  Is  set  equal  to  1.  If  the 
record  falls  again,  TAPDUB  Is  exited  with  IXRTN  3  8. 

ILAST  3  passed  parameter  In  some  SIO  calls.  Tested  by  CMPRCD  to  verify 
record  length.  Also,  CHANGE  sets  ILAST  to  the  number  of  words 
to  be  output  to  the  scratch  tape  after  the  Hughes  format  con¬ 
version. 

CASETE  3  a  logical  set.  .TRUE,  for  cassette  copy. 


/HEADER/  FLRDUB(9) ,  DE$DUB{200),  FLRRCD{9) ,  DESRCD(30) 

HEADER  contains  the  header  arrays  for  the  scratch  tape  and  cassette  tape. 


FLRDUB{9)  =  FLR  record,  nine  words  dimensioned  for  the  cassette. 

0ESDUB(200)  =  designator  record,  200  words  dimensioned  for  the  cassette. 

FLRRCD{9)  =  FLR  record,  nine  words  dimensioned  for  the  scratch  tape. 

DESRCD(30)  *  designator  record,  30  words  dimensioned  for  the  scratch 
tape. 

/FUNCTN/  FILBCK ,  FILFOR,  RECBCK ,  RECFOR,  READ,  WRITE 

FUNCTN  contains  variables  used  by  the  system- dependent  I/O  routine,  SIO. 

FILBCK  =  8  pass  file  backward 

FILFOR  -  5  pass  file  forward 

RECBCK  =  4  pass  record  backward 

RECFOR  =  3  pass  record  forward 

READ  =  0  read 

WRITE  =  1  write 

/COUNT/  OVERT 

COUNT  contains  each  map's  location  In  the  cassette  designator  record. 

OVERT  =  used  to  place  tack  map's  location  In  the  cassette  designator 
record,  DESDUB. 
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SECTION  4 

SUBROUTINE  DESCRIPTIONS 

The  subroutines  that  comprise  the  dubbing  system  are  described  In  this  sec¬ 
tion.  Each  subroutine  description  Is  accompanied  by  a  flow  diagram. 

Two  subroutines,  WRRING  and  YESNO,  are  used  so  often  that  calls  to  them  are 
not  shown  on  the  flow  diagrams.  Instead,  WRRING  calls  are  shown  as  a  write  ring 
decision  marked  with  one  asterisk  (*).  Calls  to  YESNO  are  shown  as  yes/no  re¬ 
sponses  and  marked  with  two  asterisks  (**). 

Subroutine  names  are  underlined  to  distinguish  them  from  variables. 

A  Block  Data  routine  Initializes  the  following  variables  at  compilation: 

CRT  »  5  FILBCK  «  8 

PRINTR  »  6  FILFOR  *  5 

ON  *  0  RECBCK  *  4 

OFF  -  1  RECFOR  *  3 

DONE  -  1  WRITE  *  1 

NTDONE  «  0  READ  *  0 

MAXIM  »  20 

RAYMON  *  8 
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4.1  CASSET 


CASSET  Is  the  control  program  for  the  dubbing  system.  It  presents  the  func¬ 
tions  available  for  the  operator's  selection,  and  controls  the  required  process¬ 
ing. 

In  addition  to  initializing  I/O  variables,  CASSET  calls  the  system  subrou¬ 
tine  SETTRT  to  set  system  parameters  so  that  a  "1"  is  returned  on  a  bad  read. 
The  last  statement  in  CASSET  is  a  call  to  SETSVS,  which  resets  the  system 
parameters. 

CASSET  directs  the  operator  to  set  the  tape  density,  enter  the  date,  and 
select  one  of  the  options  available. 

When  a  selection  has  been  made,  CASSET  calls  the  appropriate  routines  for 
processing.  Table  4-1  lists  the  options  available  on  the  dubbing  system.  For 
the  CASSET  flow  diagram,  refer  to  Figure  4-1. 

TABLE  4-1.  DUBBING  OPTIONS 

SINGLE  CASSETTE  —  Makes  a  single  cassette 

MULTIPLE  CASSETTE  —  Makes  a  scratch  tape  from 

which  cassette  copies  can  be 
made  after  verification 

COPY  ONLY  —  Makes  from  one  to  five 

cassette  copies  from  a  scratch 
tape 


Figure 


"VgSNO 


-1.  CASSET  Flow  Diagram  (Sheet  1  of  6) 
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Figure  4-1.  CASSET  Flow  Diagram  (Sheet  3  of  6) 


Figure  4-1.  CASSET  Flow  Diagram  (Sheet  4  of  6) 
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4-1.  CASSET  Flow  Diagram  (Sheet  5  of  6) 
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Figure  4-1.  CASSET  Flow  Diagram  (Sheet  6  of  6) 
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4.2  WKTAPE 


HKTAPE  reads  the  replacement  table  working  file,  stored  on  the  library  work¬ 
ing  tape.  Into  memory.  WKTAPE  Is  called  by  CASSET  when  the  single  or  multiple 
cassette  option  Is  selected. 

The  replacement  file  Is  required  for  locating  maps  on  the  catalog  tape. 
Replaced  entries  are  Ignored  during  this  search. 

If  the  working  tape  does  not  load,  the  backup  tape  Is  requested  and  WKTAPE 
tries  to  read  the  backup  tape.  If  this  does  not  load  either,  WKTAPE  Is  exited 
with  GBGMSG  =  1.  This  flags  CASSET  to  the  failure. 

The  flow  diagram  for  WKTAPE  Is  given  In  Figure  4-2. 
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Figure  4-2.  WKTAPE  Flow  Diagram  (Sheet  1  of  3) 
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Diagram  (Sheet  3  of  3) 


2 


4.3  ENTRY 


ENTRY  requests  the  operator  to  enter  the  maps  to  be  dubbed.  A  maximum  of 
20  entries  Is  allowed  at  this  time.  The  operator  Is  given  the  choice  of  enter¬ 
ing  a  map  by  UTM  grid  zone  designator  (32UKM,  2PKQ)  or  grid  zone  and  S/U  corner 
northing  and  easting  coordinates  (32U,  7000000,  400000).  Appropriate  routines 
are  called  for  each  type  of  entry. 

After  the  map  Is  entered,  EXTRAS  Is  called  If  the  operator  Indicated  that 
an  overlap  cell  was  required. 

ENTRY  then  places  all  the  map  Information  in  the  RETREV  array. 

The  flow  diagram  for  ENTRY  Is  given  In  Figure  4-3. 


4-13 


SET  NUMMPS 
TO  1 


Figure  4-3.  ENTRY  Flow  Diagram  (Sheet  1  of  4) 
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Figure  4-3.  ENTRY  Flow  Diagram  (Sheet  2  of  4) 
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Figure  4-3.  ENTRY  Flow  Diagram  (Sheet  3  of  4) 
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•  ENTRY  Flow  Diagram  (Sheet  4  of  4) 
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4.4  CRTCK 


CRTCK  requests  the  operator  to  enter  a  UTM  map  designator  (15PKQ;  2PKQ, 
etc.).  It  checks  that  the  entered  designator  Is  valid.  That  Is,  It  checks 
that  I  or  0  Is  not  one  of  the  alpha  characters,  that  only  a  maximum  of  five 
characters  are  entered,  and  that  the  PRFX  Is  valid.  CRTCK  then  separates  the 
designator  Into  PRFX,  INFX,  SFFX1,  and  SFFX2  values.  The  designator  Is  sepa- 


rated  as  shown  below: 

4-character  designators 

2PKQ 

2 

1 

P 

1 

K 

1 

0 

i 

PRFX 

INFX 

SFFXl 

SFFX2 

5-character  designators 

15PKQ 

15 

P 

K 

Q 

1 

1 

1 

1 

PRFX 

INFX 

SFFXl 

SFFX2 

CRTCK  Is  called  by  ENTRY  to 

get  the  maps 

that 

will  be  entered  for  dubbing  when 

the  operator  elects  to  enter  a  map  by  the  UTM  grid  zone  designation. 


There  Is  one  passed  variable,  CELLCT.  This  keeps  track  of  the  number  entry 
of  the  map. 

CELLCT  =  1  for  the  first  entry 
CELLCT  *  2  for  the  second  entry,  etc. 

The  CRTCK  flow  diagram  Is  shown  In  Figure  4-4. 
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Figure  4-4.  CRTCK  Flow  Diagram  (Sheet  1  of  3) 
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Figure  4-4.  CRTCK  Flow  Diagram  (Sheet  2  of  3) 
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Figure  4-4.  CRTCK  Flow  Diagram  (Sheet  3  of  3) 
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4.5  GRIDCK 


GRIDCK  requests  the  operator  to  enter  a  UTM  grid  zone  (2S,  15K,  etc.).  It 
verifies  that  the  grid  zone  Is  valid,  and  then  separates  the  grid  zone  Into 
PRFX  and  INFX  values  as  follows: 

Grid  Zone  2  S  15  K 

/  \  /  \ 

PRFX  INFX  PRFX  INFX 

GRIDCK  then  calls  the  subroutine  NUMCK  to  get  the  S/W  northing  and  easting  co¬ 
ordinates  to  complete  the  grid  zone  designator  entry. 

GRIDCK  is  called  by  ENTRY  when  the  operator  elects  to  enter  a  map  by  grid 
zone  and  S/W  northing  and  easting  coordinates. 

There  Is  one  passed  variable,  INCR,  which  keeps  track  of  the  number  entry 
of  the  map: 

INCR  =  1  for  the  first  entry 

*  2  for  the  second  entry,  etc. 

The  GRIDCK  flow  diagram  Is  shown  In  Figure  4-5. 
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Figure  4-5.  GRIOCK  Flow  Diagram  {Sheet  1  of  2) 
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4.6  NUMCK 


NUMCK  requests  the  operator  to  enter  the  S/W  corner  northing  and  easting 

coordinates.  It  is  called  by  GRIDCK  when  an  operator  is  entering  a  map  by  the 

% 

grid  zone  and  S/W  corner  coordinates. 

NUMCK  verifies  the  operator's  entry  and  converts  the  two  coordinates  into 
two  16-bit  words. 

The  flow  diagram  for  NUMCK  is  given  in  Figure  4-6. 
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Figure  4-6.  NUMCK  Flow  Diagram 


4.7  EXTRAS 


EXTRAS  automatically  makes  an  entry  Into  the  RETREV  array  for  any  required 
overlapping  boundary  cells.  This  routine  Is  called  by  ENTRY  when  the  operator 
Indicates  that  overlapping  boundary  cells  are  required  for  a  particular  map. 
The  operator  enters  the  directions  for  which  the  overlapping  boundary  cell(s) 
are  needed:  east/west  (E/W),  or  north/south  (N/S),  or  both  E/W  and  N/S.  If 
overlapping  boundary  cells  are  requested  for  both  the  E/W  and  N/S  directions, 
a  third  cell,  the  corner  one.  Is  also  entered. 

EXTRAS  evaluates  the  original  map  to  decide  If  the  overlapping  boundary 
cells  will  be  to  the  east  or  west  (for  E/W  cells),  or  to  the  north  or  south 
(for  N/S  cells).  EXTRAS  requires  that  the  S/W  corner  northing/easting  coordi¬ 
nates  get  the  overlapping  cells.  If  the  original  map  was  entered  using  the 
grid  zone  and  S/W  corner  northing/easting  coordinates,  EXTRAS  enters  the  over¬ 
lapping  cell(s)  Into  the  RETREV  array.  If  the  original  map  was  entered  using 
the  grid  zone  designation,  only  the  grid  zone  Is  entered  Into  the  RETREV  array, 
and  the  entry  Is  flagged  as  an  overlapping  cell.  The  CTLFND  routine  fills  In 
the  remaining  Information  for  these  cells. 

Refer  to  Figure  4-7  for  the  EXTRAS  flow  diagram. 
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EXTRAS  Flow  Diagram  (Sheet  1  of  5) 


Figure  4-7. 


EXTRAS  Flow  Diagram  (Sheet  2  of  5) 
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Figure  4-7.  EXTRAS  Flow  Diagram  (Sheet  3  of  5) 
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Figure  4-7.  EXTRAS  Flow  Diagram  (Sheet  4  of  5) 
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.  EXTRAS  Flow  Diagram  (Sheet  5  of  5) 
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4.8  CTLFND 


The  CTLFND  routine  searches  the  library  catalog  tape  to  determine  whether  a 
map  Is  in  the  library  and,  if  so,  where  it  is  located.  In  addition  to  locating 
whatever  maps  are  In  RETREV,  CTLFND  identifies  any  overlapping  boundary  cells 
EXTRAS  did  not  handle  and  completes  the  entry.  CTLFND  is  called  by  CASSET. 

Each  catalog  record  is  read  and  checked  for  replacement.  If  it  has  been 
replaced.  It  is  ignored  and  the  next  record  is  read.  If  it  has  not  been  re¬ 
placed,  the  record  is  compared  to  the  maps  in  the  RETREV  array.  The  compari¬ 
son  is  first  done  on  the  UTM  grid  zone  designators,  and  then  on  grid  zone  and 
S/W  northing/easting  coordinates. 

When  there  Is  a  match,  any  Information  concerning  the  map  not  In  the 
RETREV  array  is  transferred,  along  with  the  field  file  location  for  the  map  to 
the  RETREV  array.  At  this  time,  the  format  word  RETREV  (  ,  17)  is  set  to 
1  for  250m. 

Every  time  a  map  that  was  entered  by  UTM  grid  zone  designator  is  located, 
CTLFND  checks  the  next  RETREV  entry.  If  It  is  an  overlapping  boundary  cell 
flagged  by  EXTRAS,  CTLFND  makes  the  necessary  computations  and  completes  the 
overlapping  cell  entry.  These  cells  must  then  be  located  the  same  as  any  other 
entry. 

Because  it  Is  possible  for  an  overlapping  boundary  cell  to  be  entered  after 
its  catalog  record  has  been  passed,  the  catalog  is  searched  twice  if  all  the 
maps  are  not  found  the  first  time. 

Catalog  records  are  read  until  all  the  maps  are  found  or  the  end  of  the 
catalog  Is  reached  for  the  second  time. 

Refer  to  Figure  4-8  for  the  CTLFND  flow  diagram. 
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Figure  4-8.  CTLFNO  Flow  Diagram  (Sheet  1  of  8) 
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Figure  4-8.  CTLFND  Flow  Diagram  (Sheet  2  of  8) 
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Figure  4-8.  CTIFND  Flow  Diagram  (Sheet  3  of  8) 
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Figure  4-8.  CTLFND  Flow  Diagram  (Sheet  6  of  8) 
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Figure  4-8.  CTLFND  Flow  Diagram  (Sheet  7  of  8) 
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Figure  4-8.  CTLFND  Flow  Diagram  (Sheet  8  of  8) 
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4.9  DECIDE 


DECIDE  determines  the  optimum  fill  for  the  cassette  tape.  It  determines 
how  maty  of  the  maps  entered  and  located  In  the  library  can  physically  fit 
on  the  cassette  tape.  The  total  number  of  words  which  the  cassette  tape  can 
hold  Is  determined  by  the  tape  length,  record  gap,  and  tape  density.  The  num¬ 
ber  of  words  each  map  consists  of  Is  calculated  and  subtracted  from  the  total 
available.  At  this  time,  approximately  eight  maps  In  250m  format  can  fit  on 
any  cassette  tape. 

DECIDE  Is  called  by  CASSET.  Refer  to  Figure  4-9  for  the  DECIDE  flow  dia¬ 
gram.  Figure  4-10  shows  the  result  of  the  DECIDE  subroutine. 


START 


Figure  4-9.  DECIDE  Flow  Diagram  (Sheet 


of  3) 


Figure  4-9.  DECIDE  Flow  Diagram  (Sheet  2  of  3) 
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Figure  4-9.  DECIDE  Flow  Diagram  (Sheet  3  of  3) 
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THE  NUMBER  OF  MAPS  TO  BE  PUT  ON  THE  CASSETTE  IS:  2 

THE  MAPS  ENTERED  ARE  LISTED  BELOW 

THE  MAPS  MARKED  WITH  AN  ASTERISK  (*)  WILL  BE  COPIED 

ONTO  THE  CASSETTE  IN  THE  ORDER  PRINTED 

MAPS  NOT  LOCATED  IN  THE  LIBRARY  ARE  CALLED  OUT 

REMAINING  MAPS  WILL  NOT  BE  COPIED  DUE  TO  SPACE 

LIMITATION  OF  CASSETTE 


51SXE  *  FIELD  FILE  TAPE  =  4007  FILE  =  8 

51SYB  *  FIELD  FILE  TAPE  =  4007  FILE  =  11 


Figure  4-10.  Decision  Output 
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4.10  CPYMAP 


The  CPY.4AP  routine  makes  a  scratch  tape  containing  the  maps  to  be  placed 
on  the  cassette  tape.  The  header  for  the  scratch  tape  Is  constructed  and 
written  to  the  tape.  Then,  for  each  map  to  be  placed  on  the  cassette,  the 
operator  is  asked  to  mount  the  appropriate  field  file  tape.  CPYMAP  calls 
POSTAP  to  position  the  tape  to  the  correct  file,  and  then  calls  XFRHDR  to  read 
the  map  header  and  transfer  the  required  Information  to  the  cassette  header 
being  constructed.  UTLDUB  is  then  called  to  transfer  the  data  records  of  the 
map  file.  This  process  continues  until  all  the  maps  have  been  copied. 

After  the  map  data  is  copied,  the  cassette  headers  are  finalized  and  writ¬ 
ten  out  to  the  scratch  tape  for  later  retrieval.  After  the  EOT  mark  Is  output 
to  the  tape,  CPYMAP  is  exited. 

If  only  one  cassette  is  being  made,  CPYMAP  calls  CSTCPY  to  make  the  cassette 
tape  before  exiting. 

Refer  to  Figure  4-11  for  the  CPYMAP  flow  diagram. 
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Figure  4-11.  CPYMAP  Flow  Diagram  (Sheet  1  of  6) 


4-48 


Figure  4-11.  CPYMAP  Flow  Diagram  (Sheet  2  of  6) 
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Figure  4-11.  CPYMAP  Flow  Diagram  (Sheet  3  of  6) 
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Figure  4-11.  CPYMAP  Flow  Diagram  (Sheet  4  of  6) 
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Figure  4-11.  CPYMAP  Flow  Diagram  (Sheet  6  of  6) 
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4.11  POSTAP 


POSTAP  positions  the  field  file  tape  to  a  specified  file.  When  the  scratch 
tape  Is  being  made,  CPVMAP  calls  POSTAP  prior  to  each  map  copy  to  position  the 
field  file  tape  to  the  correct  file.  POSTAP  compares  the  file  number  of  the  map 
to  be  copied  with  the  file  where  the  field  file  tape  Is  presently  positioned. 
POSTAP  then  spaces  the  field  file  tape  ahead  or  back  so  that  the  file  wanted 
Is  under  the  read  head. 

There  are  two  passed  variables:  NUMBER  and  FOUND.  NUMBER  Is  the  file  num¬ 
ber  of  the  next  map  to  be  copied.  FOUND  Is  the  returned  parameter,  taking  on  a 
logical  true  if  the  file  Is  found  and  a  logical  false  If  the  end-of-tape  is 
encountered  before  the  file  Is  found.  MAPNO,  the  file  number  at  which  the  field 
file  tape  Is  positioned.  Is  passed  to  the  routine  through  the  common  /INFO/. 
MAPNO  and  NUMBER  are  compared,  and  appropriate  action  Is  taken. 

The  POSTAP  flow  diagram  Is  shown  In  Figure  4-12. 


t 
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Figure  4-12.  POSTAP  Flow  Diagram  (Sheet  1  of  2) 
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Figure  4-12.  POSTAP  Flow  Diagram  (Sheet  2  of  2) 


4.12  UTLDUB 


UTLDUB  controls  the  copying  of  the  maps.  It  sets  control  flags  and  calls 
the  appropriate  routines  to  copy  the  maps  onto  the  scratch  tape  or  cassette 
tape.  After  the  maps  are  copied.  It  calls  JMPSW  to  get  the  status  of  the 
copy.  The  flow  diagram  for  UTLDUB  Is  shown  In  Figure  4-13. 


4.13  XFRHDR 


XFRHDR  transfers  the  Information  from  each  Individual  map's  designator 
record  to  the  cassette’s  designator  record.  XFRHDR  reads  the  FLR  and  desig¬ 
nator  record  for  each  map  to  be  placed  on  the  cassette  tape.  The  Information, 
In  words  4  through  20  of  the  designator  record,  is  put  Into  the  DESDUB  buffer. 

There  Is  one  passed  variable,  ADDR,  which  controls  the  packing  offset  for 
the  DESDUB  buffer.  XFRHDR  Is  called  by  CPYMAP. 

Refer  to  Figure  4-14  for  the  XFRHDR  flow  diagram. 
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Figure  4-14,  XFRHDR  Flow  Diagram 
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4.14  TAPDUB 


TAPDUB  copies  records  from  an  Input  device  to  an  output  device.  It  is 
called  by  UTLDUB  when  copying  original  data  records  from  the  field  file  tape 
to  the  scratch  tape,  and  when  copying  the  scratch  tape  to  the  cassette  tape. 

RSUMCK  Is  called  to  read  In  the  original  record.  If  the  read  Is  good, 
the  record  Is  written  out  to  the  output  device.  When  making  a  scratch  tape, 
CHANGE  is  called  before  writing  out  the  record  to  reformat  the  data  in  Hughes 
format.  Also  during  scratch  tape  copying,  the  record  count  of  the  first  data 
record  of  each  map  Is  placed  In  the  cassette  designator  record. 

After  the  record  Is  written  out,  the  output  device  is  backed  up,  and  the 
record  Is  reread.  If  the  read  was  good,  the  two  records  are  compared.  If 
the  compare  Is  good,  the  next  record  Is  read.  This  continues  until  an  EOF  Is 
encountered  and  TAPDUB  Is  exited. 

Bad  reads  and  compares  are  flagged,  and  the  program  Is  exited. 

Refer  to  Figure  4-15  for  the  TAPDUB  flow  diagram. 


I 
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Figure  4-15.  TAPDUB  Flow  Diagram  (Sheet  1  of  4) 
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Figure  4-15.  TAPOUB  Flow  Diagram  (Sheet  3  of  4) 
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4. IS  CHANGE 


CHANGE  reformats  the  field  file  library  data  records  from  DMA  to  Hughes 
format.  The  major  differences  are  given  below: 

•  WORD  3  —  The  upper  byte  has  the  number  of  scans  in  record. 

—  The  lower  byte  has  the  actual  scan  count. 

•  WORD  5  —  Upper  byte  of  HD5  word  is  not  reserved.  This  causes 

all  HD  values  to  he  shifted  up  one  byte. 

•  End  of  Scan  —  A  -1  is  placed  at  the  end  of  each  scan. 

•  End  of  Record  —  A  second  -1  is  placed  in  the  next-to-last  word  on  each 

record. 

CHANGE  is  called  by  TAPDUB  when  a  scratch  tape  is  being  made.  Refer  to 
Figure  4-16  for  the  CHANGE  flow  diagram. 


4.16  CSTCPY 


CSTCPY  makes  a  cassette  tape  from  a  verified  scratch  tape.  It  constructs 
the  CPC  record  and  writes  It  out  to  the  cassette  tape.  The  cassette  header 
is  read  off  the  scratch  tape  and  output  to  the  cassette  tape.  The  data  words 
are  then  copied  by  calling  UTLDUB. 

CSTCPY  is  called  by  CASSET  when  the  COPY  ONLY  dubbing  function  1$  selected. 
It  is  also  called  by  CPYMAP  when  a  single  cassette  is  being  created. 


Refer  to  Figure  4-17  for  the  CSTCPY  flow  diagram. 
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Figure  4-17.  CSTCPY  Flow  Diagram  (Sheet  2  of  4 
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Figure  4-17.  CSTCPY  Flow  Diagram  (Sheet  3  of  4) 
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Figure  4-17.  CSTCPV  Flow  Diagram  (Sheet  4  of  4) 


4.17  JMPSW 


JMPSW  Interprets  the  result  of  a  copy  process  and  takes  appropriate  action. 
UTLDUB  calls  JMPSW  after  each  copy  process. 

JMPSW  checks  the  status  variable,  IXRTN,  and  takes  appropriate  action  de¬ 
pending  on  Its  value.  Table  4-2  gives  the  action  associated  with  each  IXRTN 
value.  JMPSW  returns  a  value  of  STSVL  (through  the  common  /FLAGG/)  to  UTLDUB, 
which  then  performs  the  appropriate  action.  The  values  for  STSVL  are  as  fol¬ 
lows: 

STSVL  =  1  Continue  with  next  map 
3  2  Read  same  record  again 
=  3  Write  same  record  again 
3  4  Stop  processing 

In  general.  If  everything  was  good,  the  program  goes  on  to  the  next  map.  If 
there  was  a  bad  read  or  sum  check  error  on  an  Input  record,  the  record  Is  re¬ 
read  a  second  time.  If  there  Is  still  an  error,  JMPSW  stops  processing  the 
scratch  tape  or  cassette  tape. 

If  there  was  a  bad  read  or  sum  check  error  on  an  output  record,  or  If  an 
Improper  record  was  detected,  JMPSW  tries  to  write  the  record  out  again.  The 
Input  and  output  devices  are  backed  up  one  record,  and  the  program  tries  to  re¬ 
write  the  record  again.  If  an  error  occurs  again,  JMPSW  stops  processing  the 
scratch  tape  or  cassette  tape. 

|  A  wrong  record  count  or  a  second  bad  compare  stops  the  processing  of  the 

scratch  tape  or  cassette  tape. 

^  Refer  to  Figure  4-18  for  the  JMPSW  flow  diagram. 

I 


4-75 


TABLE  4-2.  ACTIONS  ASSOCIATED  WITH  IXRTN  VALUES 


IXRTN 

VALUE 

IXRTN  =  1 

IXRTN  *  2 

IXRTN  =  3 

IXRTN  =  4 

IXRTN  =  5 


IXRTN  =  6 

IXRTN  =  7 

IXRTN  »  8 

NOTE:  The 


ACTION 

Good  copy;  "FILE  TRANSFER  OK;"  STSVL  *  1;  Continue. 

EOT  ENCOUNTERED;  "EOF/EOT  ENCOUNTERED  ON  INPUT  DEVICE;" 
STSVL  =  1;  Continue. 

"BAD  READ  ON  ORIGINAL  TAPE  RECORD  _" 

First  time,  try  to  read  same  record  again;  STSVL  =  2. 
Second  time,  halt  processing  of  scratch  tape  or  cassette 
tape;  STSVL  =  4. 

"BAD  SUMCK  ON  RECORD 
Handled  same  as  =  3  above. 

"IMPROPER  RECORD  TYPE  ENCOUNTERED" 

On  first  try,  back  up  input  and  output  devices  one  record. 
Try  to  rewrite  the  record.  STSVL  ■  3. 

On  second  try,  halt  processing  of  scratch  tape  cassette. 
STSVL  =  4. 

"BAD  READ  AFTER  WRITE" 

Handled  same  as  >  5  above. 

"BAD  SUMCK  ON  OUTPUT  RECORD  _" 

Handled  same  as  *  5  above. 

"BAD  COMPARE  -  SECOND  TIME  POSSIBLE  SYSTEM  PROBLEM" 

Halt  processing  of  scratch  tape  or  cassette.  STSVL  *  4. 

message  displayed  to  operator  is  in  quotes. 
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Figure  4-i8.  JHPSW  Flow  Diagram  (Sheet  2  of  2) 
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4.1ft  CMPRCO 

CMPRCO  compares  each  word  of  IOBUF1  and  I0BUF2.  If  all  the  words  are  the 
same,  the  variable,  1SCS  (in  common  /FLAGG/),  is  set  to  zero.  If  the  compari¬ 
son  fails,  ISCS  is  set  to  1. 

CMPRCD  is  called  by  the  copy  routines  to  check  that  what  was  written  out  is 
what  was  supposed  to  be  written  out. 

Figure  4-19  is  the  flow  diagram  for  CMPRCD. 
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4.19  RSUMCK 

RSUMCK  reads  a  record  from  a  tape  device  and  checks  the  read  to  determine 
if  an  EOT  was  encountered,  if  the  read  was  bad,  or  if  a  sum  check  error  was 
detected.  Depending  on  values  assigned  to  variables  IOBUF  and  LOGDEV ,  RSUMCK 
will  read  from  any  tape  device  into  I0BUF0,  I0BUF1,  or  I0BUF2.  The  read 
status  is  returned  via  IXRTN  (in  the  common  /FLAGG/): 

IXRTN  =  1  Good  read 

=  2  EOT  encountered 
=  3  Bad  read 

=  4  Sum  check  error  detected 

RSUMCK  is  called  whenever  a  read  and  check  operation  is  required.  Refer  to 
Figure  4-20  for  the  RSUMCK  flow  diagram. 
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4.20  SELECT 


SELECT  Interprets  an  operator's  response  to  alphabetical  choices  and  returns 
a  numerical  value  for  the  calling  routine  to  evaluate.  SELECT  Is  called  when¬ 
ever  the  operator  Is  given  an  alphabetic  format  choice  (e.g.,  A,  B,  C,  etc.). 

There  are  two  passed  parameters,  N  and  CHC.  N  Is  the  number  of  choices 
presented  to  the  operator;  It  Is  set  by  the  calling  routine.  CHC  Is  the  return 
parameter,  giving  the  numerical  equivalent  to  the  operator's  selection.  If  the 
operator  enters  an  Invalid  choice,  an  error  message  Is  displayed  and  the  opera¬ 
tor  Is  asked  to  select  again. 

Refer  to  Figure  4-21  for  the  SELECT  flow  diagram. 


I 

I 

I 


4.21  YESNO 


YESNO  Interprets  the  operator's  "yes”  or  "no"  response  and  returns  a  logical 
value  for  the  calling  routine  to  evaluate.  YESNO  Is  called  whenever  the  operator 
Is  asked  for  a  YES/NO  decision.  There  Is  one  passed  parameter,  FLAG,  which  re¬ 
turns  the  logical  equivalent  of  the  operator's  response  to  the  calling  program. 
If  the  operator  answers  with  anything  other  than  "Y,"  "YE,"  "YES,"  "N,"  or  "NO," 
an  error  message  Is  displayed  and  the  operator  Is  asked  to  reenter  the  response. 

The  YESNO  flow  diagram  Is  shown  in  Figure  4-22. 


TO  TRUE 


Figure  4-22.  YESNO  Flow  Diagram 
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4.22  HOWMNY 


HOWMNY  interprets  an  operator's  numerical  response  and  determines  if  it  is 
within  acceptable  limits.  HOWWNY  is  called  whenever  the  operator  is  directed 
to  enter  numerical  values.  There  are  two  passed  variables,  NUM  and  LMT.  NUM 
is  the  value  returned  to  the  calling  program.  LMT  is  the  maximum  value  MUM 
can  have.  LMT  is  set  by  the  calling  program.  If  the  number  entered  is  greater 
than  the  specified  limit,  an  error  message  is  displayed  and  the  operator  is 
directed  to  reenter  the  number. 

See  Figure  4-23  for  the  flow  diagram  for  HOWMNY. 
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4.23  WRR1NG 


WRRING  checks  whether  or  not  a  write  ring  Is  present  on  a  tape  mounted  on 
a  given  tape  drive.  It  Is  called  by  various  subroutines  to  check  whether  a 
given  tape  Is  write  protected/enabled.  There  are  two  passed  variables,  DEVNUM 
and  STAT;  both  are  set  by  the  calling  program.  DEVNUM  Is  the  logical  device 
number  of  the  tape  drive  on  which  the  tape  Is  mounted.  STAT  is  the  condition 
for  which  the  program  Is  checking: 

STAT  =  0  Write  ring  should  be  on 

STAT  =  1  Write  ring  should  be  off 

If  the  correct  condition  does  not  exist,  WRRING  Interrupts  with  an  error 
message  directing  the  operator  to  take  appropriate  action.  Uhen  the  correct 
condition  is  met,  WRRING  Is  exited. 

See  Figure  4-24  for  the  WRRING  flow  diagram. 
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SECTION  5 


COMPUTER  PROGRAM  LISTINGS 


This  section  contains  the  computer  program  listings  for  the  FFDTDVLDS. 
An  explanation  of  the  operating  system  SIO  subroutine  Is  given  below  to 
help  the  reader  to  fully  understand  these  listings. 


SIO 


The  SIO  subroutine  Is  the  nonstandard  system  I/O  call  used  throughout 
the  library  program  to  perform  the  following  operations:  read,  write,  pass 
records  or  files,  and  finalize.  The  routine  has  six  passed  parameters: 


CALL  SIO  (FUNCTION,  DEVICE,  ARRADR,  WDCNT ,  STATUS,  WDSDONE) 


FUNCTION  defines  the  function 

0  *  Read 

1  =  Write 

2  *  Initialize 

3  =  Pass  Record  Forward 

4  *  Pass  Record  Backward 


that  SIO  Is  to  perform: 

5  *  Pass  File  Forward 

6  *  Finalize 

7  =  Rewind 

8  =  Pass  File  Backward 


DEVICE  Is  the  logical  number  assigned  to  a  given  device: 


1  *  T1 

2  =  T2 

3  *  T3 

4  =  T4 

5  *  UN I SCOPE 


6  =  PRINTR 

7  *  RAMTEK 

8  *  RAYMOND 

9  =  CARD  READER 


ARRADR  Is  the  location  (word  or  array)  to  be  loaded  or  read  from. 


WDCNT  Is  the  Index  count  for  various  functions: 

•  For  Read  or  Write  functions,  WDCNT  Is  the  number  of  16-bit  words 
to  be  read  or  written  out.  The  maximum  for  a  single  call  Is 
32,767. 

t  For  the  Initialize  or  Rewind  functions,  WDCNT  has  no  effect. 
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•  For  the  Pass  Record  or  Files  functions,  WOCMT  Is  the  number  of 
records  or  files  to  be  passed  forward  or  back. 

•  For  the  Finalize  function,  WDCNT  Is  the  number  of  termination 
marks  to  be  output.  A  maximum  of  63  Is  allowed. 


STATUS  Is  returned  by  the  system;  It  Indicates  the  status  of  the  opera¬ 
tion: 


0  ■  Good  Operation 

1  *  Bad  Packet  or  Fatal  I/O  Error 

2  »  End-of-FIle  Encountered 


WDSDONE  gives  the  number  of  words  read  or  operations  actually  performed. 
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